home *** CD-ROM | disk | FTP | other *** search
/ The CIA Papers / The CIA Papers.iso / setuphw3.ins < prev    next >
Encoding:
Text File  |  1994-08-08  |  2.9 KB  |  134 lines
  1.   InstName := 'Chestnut CIA Papers';
  2.   Cls;
  3.   StrRet := InstName;
  4.   DoFunc(0);
  5.  
  6. GetFrom:
  7.   DoFunc(5);
  8.   Mssg(6,3,'Enter the Drive letter of your CD-ROM drive.');
  9.   DoFunc(11);
  10.   DoFunc(2);
  11.   CDROMDrive := StrRet;
  12.   BranchEq(IntRet,0,Leaving);
  13.   BranchEq(IntRet,2,GetFrom);
  14.  
  15. GetDrive:
  16.   DoFunc(5);
  17.   Mssg(6,3,'Enter the Drive letter of your harddisk.');
  18.   StrRet := 'C';
  19.   DoFunc(2);
  20.   ToDrive := StrRet;
  21.   BranchEq(IntRet,0,Leaving);
  22.   BranchEq(IntRet,2,GetDrive);
  23.  
  24.   {Example of the directory name on their hard disk}
  25.   {Should be the same as the directory name stored}
  26.   {in the HR.CDB file}
  27.   ConCat(SysPath,ToDrive,':\CIA');
  28.  
  29.   StrRet := SysPath;
  30.   DoFunc(6);
  31.   SysPath2 := '';
  32.   ConCat(SysPath2,StrRet,'GO.BAT');
  33.  
  34.   DoFunc(5);
  35.   Mssg(6,3,'You have specified the following:');
  36.   Uaf := '';
  37.   Concat(Uaf,'- CD-ROM is in Drive ',CDROMDrive,':');
  38.   Mssg(6,5,Uaf);
  39.   Uaf := '';
  40.   Concat(Uaf,'- Install Batch File onto Drive ',SysPath);
  41.   Mssg(6,6,Uaf);
  42.  
  43.   DoFunc(7);
  44.   DoFunc(5);
  45.   BranchEq(IntRet,0,Leaving);
  46.   BranchEq(IntRet,3,GetFrom);
  47.  
  48.   IntRet := 1; {If they don't have 101K then don't install}
  49.   DoFunc(4);
  50.   BranchEq(IntRet,0,Leaving);
  51.   BranchEq(IntRet,3,Leaving);
  52.  
  53.   DoFunc(5);
  54.   Mssg(6,3,'Installing CD-ROM start up batch file now:');
  55.  
  56.   {Make The Directories Here}
  57.   Mssg(5,21,'Creating Directory...');
  58.   ChDir(CDROMDrive,':');
  59.   ChDir('\CIA\WPS');       {built in directory name on the CD}
  60.   ChDir(ToDrive,':');
  61.   MkDir(SysPath);
  62.   ChDir(SysPath);
  63.  
  64.   Mssg(5,21,'Creating Batch File...');
  65.   Copy(CDROMDrive,':\HW\GO.BAT');
  66.   StrRet := SysPath;
  67.   DoFunc(6);
  68.   ConCat(StrRet,'GO.BAT');
  69.   DoFunc(18);
  70.   BranchEq(IntRet,0,NextS1);
  71.   Goto Complete;
  72. NextS1:
  73.   StrRet := CDROMDrive;
  74.   Concat(StrRet,':\HW\HRWCD');
  75.   DoFunc(19);
  76.   BranchEq(IntRet,0,NextS2);
  77.   Goto Complete;
  78. NextS2:
  79.   DoFunc(20);
  80.  
  81.   {PROGMAN Group}
  82.   StrRet := 'Chestnut CIA Papers';
  83.   DoFunc(16);
  84.   BranchEq(IntRet,0,Complete);
  85.  
  86.   {Program ICON}
  87.   StrRet := CDROMDrive;
  88.   Concat(StrRet,':\HW\HRWCD.EXE');
  89.   Concat(StrRet,',');
  90.   Concat(StrRet,'The CIA Papers');
  91.   DoFunc(17);
  92.   
  93.   Copy(CDROMDrive,':\HW\HRWCD.INI');
  94.   StrRet := SysPath;
  95.   DoFunc(6);
  96.   ConCat(StrRet,'HRWCD.INI');
  97.   DoFunc(18);
  98.   BranchEq(IntRet,0,NextStep1);
  99.   Goto Complete;
  100.  
  101. NextStep1:
  102.   StrRet := 'Document Path = ';
  103.   Concat(StrRet,CDROMDrive,':\CIA\WPS');
  104.   DoFunc(19);
  105.   BranchEq(IntRet,0,NextStep2);
  106.   Goto Complete;
  107.  
  108. NextStep2:
  109.   StrRet := 'Graphics Path = ';
  110.   Concat(StrRet,CDROMDrive,':\CIA\BITMAPS');
  111.   DoFunc(19);
  112.   BranchEq(IntRet,0,NextStep3);
  113.   Goto Complete;
  114.  
  115. NextStep3:
  116.   DoFunc(20);
  117.  
  118. Complete:
  119.   StrRet := InstName;
  120.   DoFunc(0);
  121.   Mssg(0,0,'Installation Complete');
  122.   Cls;
  123.   Mssg(1,10,'Type GO to begin the CD-ROM document');
  124.   Goto Exit;
  125.  
  126. Leaving:
  127.   StrRet := InstName;
  128.   DoFunc(0);
  129.   Mssg(0,0,'Installation aborted by User');
  130.   Cls;
  131.   Goto Exit;
  132.  
  133. Exit:
  134.